// Sends the notice [|DWaRFx-TNG|:+\/\/all[OP|NOP]+:#<ChannelName>] <message>
\\ to all ops or all non ops, or all on active channel. If you are op'ed,
// "op msg" will be added.
\\ Use the OPS option to send the message to OPS only
// Use the NOPS option to send the message to NOPS only
\\ Put this script in rexx: and add it as an alias to AmIRC with the
//
\\ /Dw <OPS or NOPS> <Message>
// | |
\\ Only to OPS Only to Non-OPs
//
\\ *NOTE*
// Changed by Gaz to shorten the [|DWaRFx-TNG|:+\/\/all[OP|NOP]+:#<ChannelName>]
\\ bit because of complaints ;)) sorry Coolie. I changed it to :- [Op:#AmIRC]
//
\\
*/
;Parse Arg args;Options Results;evnum=Substr(Address(),Pos('.',Address()));Call Setclip('DFxTIME'evnum,Time());'GetMyNick';mynick=Upper(result);'GetChannel';channel=result;opt=Upper(Word(args,1));type=0;Select;When opt="OPS" then type=1;When opt="NOPS" then type=2;Otherwise;End;text='['d2c(2)''d2c(2)'';If type~=0 then args=SubWord(args,2);If type=1 then text=text'Op';If type=2 then text=text'Nop';text=text'/'channel'] 'args;allops="";count=0;message='Echo P='d2c(27)'x«DWaRFWALL»';If args="" Then;Do;message' 'd2c(2)'Error:'d2c(2)' Syntax is /Dw <OPS | NOPS > <Text>.';Exit;end;'GetUserState 'count;Do While rc ~=5;us=rc;ops.count="";'GetUser 'count;nick=result;Select;When us=1 Then;Do;If Upper(nick)=mynick then text=text' 'd2c(2)||'"Op Msg"'||d2c(2);Else If type=1|type=0 then ops.count=nick;End;When us=2|us=0 Then;Do;If nick~=mynick then if type=2|type=0 then ops.count=nick;End;Otherwise;End;count=count+1;'GetUserState 'count;End;Do While count ~=0;count=count-1;If ops.count ~="" Then;Do;'RAW NOTICE 'ops.count' :'text;allops=allops ops.count;End;End;If allops ~="" Then message' 'text' - sent to:'d2c(2)||allops||d2c(2);Else message' No Wall message sent.';Exit